home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 April
/
1988-04.d64
/
power poke.64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
456b
|
13 lines
10 rem copyright 1988 compute! publications, inc. - all rights reserved
20 print"[147][144] copyright 1988 compute! pub., inc."
30 printtab(11)"all rights reserved"
35 print"power poke installed."
40 fori=679to728:reada:pokei,a:x=x+a:next
50 ifx<>5022thenprint"data statement error.":stop
60 sys679
70 data 169,178,141,8,3,169,2,141,9,3
80 data 96,32,115,0,201,151,240,6,32,121
90 data 0,76,231,167,32,115,0,32,36,184
100 data 32,121,0,240,242,230,20,208,2,230
110 data 21,32,241,183,32,39,184,76,197,2